500 IF TX>MXX-2 THEN MXX=TX+2 : IF MXX>31 THEN MXX=31
510 IF TY>MXY-2 THEN MXY=TY+2 : IF MXY>23 THEN MXY=23
520 IF TX<MNX+2 THEN MNX=TX-2 : IF MNX<1 THEN MNX=1
530 IF TY<MNY+2 THEN MNY=TY-2 : IF MNY<1 THEN MNY=1
540 RETURN
990 '
1000 FOR YY=MNY TO MXY : FOR XX=MNX TO MXX
1020 IF PST(XX,YY)<>A THEN 1130
1030 H=1
1040 T=1 : P=1 : DX=(H>1) : DY=H-3-(H=1)
1050 X=XX : Y=YY
1060 X=X+DX : Y=Y+DY
1070 IF PST(X,Y)=A THEN T=T+1 : P=P+1 : GOTO 1060 ELSE IF PST(X,Y)=0 THEN PTS(X,Y)=PTS(X,Y)+P : P=1 ELSE P=0
1080 X2=XX : Y2=YY
1090 X2=X2-DX : Y2=Y2-DY
1100 IF PST(X2,Y2)=A THEN T=T+1 : P=P+1 : GOTO 1090 ELSE IF PST(X2,Y2)=0 THEN PTS(X2,Y2)=PTS(X2,Y2)+P ELSE PTS(X,Y)=PTS(X,Y)-1
1110 IF T=5 THEN 2000
1120 H=H+1 : IF H<5 THEN 1040
1130 NEXT : NEXT
1132 SCREEN 1,1 : FOR YY=MNY TO MXY : FOR XX=MNX TO MXX : SYMBOL(XX*20+A*3-6,YY*20-4),STR$(PTS(XX,YY)),.55!,.55!,5+A : NEXT : NEXT : SCREEN 1,0 : RETURN